﻿Public Class rptNuevoPlanPagoVentas
    Public IDx As Integer = 0
    Public Sub generarReporte()
        Try
            Me.SP_RptTmpNuevoCreditoTableAdapter.Fill(MegastoreDataSet1.SP_RptTmpNuevoCredito, IDx)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class